From: Glenn Morris Date: Tue, 17 May 2011 02:40:34 +0000 (-0700) Subject: * lisp/mail/mail-utils.el (mail-dont-reply-to): Silence compiler. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~3789 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3b30cc4e6a8a81d5820e65e4656fc5d37c910aec;p=emacs.git * lisp/mail/mail-utils.el (mail-dont-reply-to): Silence compiler. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e24f6372a6..9484b0231ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2011-05-17 Glenn Morris + * mail/mail-utils.el (mail-dont-reply-to): Silence compiler. + * progmodes/idlw-shell.el (idlwave-shell-complete-filename): Replace obsolete function. diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 328a5d50d34..2e6f06a6758 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -236,7 +236,7 @@ comma-separated list, and return the pruned list." (setq mail-dont-reply-to-names (concat ;; `rmail-default-dont-reply-to-names' is obsolete. - (if rmail-default-dont-reply-to-names + (if (bound-and-true-p rmail-default-dont-reply-to-names) (concat rmail-default-dont-reply-to-names "\\|") "") (if (and user-mail-address